From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 30 Jul 2007 20:07:02 +0000 (+0000)
Subject: (readevalloop, read1): Treat NBSP as whitespace.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~17580
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5ec1682b36e6094e4db91696fa5307f2a631b82b;p=emacs.git

(readevalloop, read1): Treat NBSP as whitespace.
---

diff --git a/src/lread.c b/src/lread.c
index ef999fac74c..20587c6759e 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1501,7 +1501,8 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
 	}
 
       /* Ignore whitespace here, so we can detect eof.  */
-      if (c == ' ' || c == '\t' || c == '\n' || c == '\f' || c == '\r')
+      if (c == ' ' || c == '\t' || c == '\n' || c == '\f' || c == '\r'
+	  || c == 0x8a0)  /* NBSP */
 	goto read_next;
 
       if (!NILP (Vpurify_flag) && c == '(')
@@ -2693,7 +2694,9 @@ read1 (readcharfun, pch, first_in_list)
       }
     default:
     default_label:
-      if (c <= 040) goto retry;
+      if (c <= 040) goto retry;	
+      if (c == 0x8a0) /* NBSP */
+	goto retry;
       {
 	char *p = read_buffer;
 	int quoted = 0;
@@ -2702,6 +2705,7 @@ read1 (readcharfun, pch, first_in_list)
 	  char *end = read_buffer + read_buffer_size;
 
 	  while (c > 040
+		 && c != 0x8a0 /* NBSP */
 		 && (c >= 0200
 		     || (!index ("\"';()[]#", c)
 			 && !(!first_in_list && c == '`')